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ABSTRACT 


A computer program called Character String Scanner (CSS), is 
presented. It is designed to search a data set for any specified group 
of characters and then to flag this group. The output of the CSS pro- 
gram is a listing of the data set being searched with the specified 
group of characters being flagged by asterisks. Therefore, one may 
readily identify specific keywords, groups of keywords or specified 
lines of code internal to a computer program, in a program output, 
or in any other specific data set. Possible applications of this pro- 
gram include the automatic scan of an output data set for pertinent 
keyword data, the editing of a program to change the appearance of 
a certain word or group of words, and the conversion of a set of code 
to a different set of code. 
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A CHARACTER STRING SCANNER 


1. BACKGROUND 

It was decided to use a static version of DODS as an interim tool for the R and 
D user of GTDS. This static version of DODS, however, has to be a version 
that would allow the R and D user to incorporate his changes on either a tempo- 
rary or permanent basis. It has also to be a version that the OS/360 does not 
think is the "real" DODS. Several tools were developed to aid in the develop- 
ment of such a special version of DODS. This paper describes one of these 
tools. 


2. PURPOSE 

CSS (Character String Scanner) scans a character string, e.g. an EBCDIC rec- 
ord of data, in search of a particular group of characters. The character string 
scanned is printed out, and each occurrence of the group of characters, if any, 
is flagged below with asterisks . The entire line is flagged with dashes if the 
group of characters is found. For an example, see the section OUTPUT. 

This is done for each record of an input data set, listing the records with or 
without flags as appropriate, in succession. The user may specify at load time 
whether the first character of each record is to be ignored as a carriage control 
character, and how many four-byte words of data are to be scanned. 


3. SYMBOLS USED IN THIS REPORT 

LUP — variable containing number of four-byte words to be scanned per 
record 

LCC — one-byte LOGICAL variable indicating whether first character of 
each record is to be ignored 

PC — name of COMMON block containing NUM and F 

NUM — variable containing number of characters in PARM field 

F — singly-subscripted LOGICAL* 1 type variable containing PARM field 

PARM — subroutine called to access PARM field 

DODS — singly-subscripted INTEGER*2 type variable containing character 
string ’DODS’ 
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COMPR — singly-subscripted INTEGER*2 type variable containing the group of 
characters for which to search 

TEXT — singly-subscripted variable into which record is read 

LTEXT — singly-subscripted LOGICAL* 1 variable EQUIVALENCED to TEXT 

ITEXT — singly-subscripted INTEGER*2 variable used to break record up into 
single characters for comparison with COMPR 

ILTEXT - singly-subscripted LOGICAL* 1 variable EQUIVALENCED to ITEXT 

ASTER — singly-subscripted variable containing asterisks to be printed, if any 

MARK — singly-subscripted LOGICAL*l variable EQUIVALENCED to ASTER 

LINE — singly-subscripted variable containing dashes to be printed when ap- 
propriate 

IND — one -byte LOGICAL variable indicating whether any flags are to be 
printed 

N — variable containing the number of characters in COMPR 


4. METHOD 

The information the user wishes to pass to CSS: 1. whether the first character 
of each input record is to be ignored, 2. the number of four-byte words to be 
scanned, and 3. the group of characters for which to search, is passed through 
a JCL (Job Control Language) feature known as the PARM field. For those read- 
ers unfamiliar with this feature, let us review JCL in general. 

Every job submitted through 360/OS (Operating System) is defined and invoked by 
JCL cards. The main types of such cards are JOB, EXEC, and DD cards. The 
JOB card is the first of every job, and in addition to delimiting jobs, it gives the 
system such information as the name of the job, of the user, the user’s account 
number, box number and other accounting information, as well as such informa- 
tion as whether JCL cards are to be listed and if so, through what output class. 

Now, a job consists of one or more steps. The first card of a step is the EXEC 
card. This card specifies the program to be executed, together with other infor- 
mation. Data sets used by the program are defined by DD cards immediately 
following the EXEC card. The first field of the DD card is the ddname, which 
identifies the information coded on the card for use by system I/O routines. The 
program does I/O by passing the ddname, along with other information, to the 
system in an internal Data Control Block (DCB). The data set may exist on disk, 
drum, data cell, tape, cards or may be sent to a printer or card punch. This 
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information is coded on the DD card. For example, a card data set is defined 
by a DD card of the form 

//ddname DD * 


data cards 


next JCL card 

or, if some of the data cards begin with two slashes (//), 
//ddname DD DATA 


data cards 


/* 

The program invoked by the EXEC statement must itself be in the form of a load 
module and must be a member of a partitioned data set called a library. This 
may be the system program library (SYS1. LINKLIB), a private library, or a 
temporary library which exists only for the duration of the run. An example of 
the latter is a typical compile-link-go job. The LINK step invokes the linkage 
editor, which creates a load module, puts it in a temporary library, and then 
the GO step invokes that. The compilers, assemblers, linkage editors and util- 
ity programs provided by IBM all reside in the system library. They are in- 
voked as follows : 

// EXEC PGM=progname 
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with other parameters optional. Programs in a private library are invoked the 
same way, except that a DD card defining the library must be provided immedi- 
ately following the JOB card, and must have the special ddname JOBLIB. Pro- 
grams in a temporary library are invoked as follows: 

// EXEC PGM=*. stepname. ddname 

where stepname is the name of the LINK step in which the load module was cre- 
ated. This is indicated on the EXEC card for that step in the stepname field, 
which is optional and immediately follows the two slashes: 

//stepname EXEC . . . 

Frequently used sequences of JCL statements are stored in the system procedure 
library (SYS1. PROCLIB), which is a partitioned data set whose members are 
called procedures. Each procedure has one or more EXEC statements, each 
followed by one or more DD statements. A procedure is invoked as follows: 

// EXEC procname 

Parameters on the EXEC cards in the procedure may be overridden by param- 
eters coded on the above EXEC card, identified with the appropriate stepnames 
as coded in the procedure. Parameters on DD cards in the procedure may be 
overridden with DD cards immediately following the EXEC card invoking the 
procedure, with the appropriate stepname coded as part of the ddname on each 
such card. For example, the procedure FORTRANG invokes the FORTRAN 
level G compiler, whose name, incidentally, is IEYFORT. The stepname is 
SOURCE. The following example shows one of each type of override. 

//EXEC FORTRANG, REGION. SOURCE=300K 
//SOURCE. SYSIN DD * 


Since FORTRANG has only one step, the use of the stepname SOURCE is unnec- 
essary and may be omitted. An example of a multi-step procedure is LINKGO, 
which has a LINK and a GO step. The stepnames are LINK and GO. 

Among the parameters which may be coded on an EXEC statement is PARM. 

The parm field is just a character string with at most 100 characters. It is 
coded as follows: 
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// EXEC . . . , PARM='this is the parm field’ 

One may pass information to the compiler, linkage editor, and/or one's own pro- 
gram in a compile-link-go job. An example of all three is: 

//EXEC FORTRANG,PARM=' LIST, DECK' 


// EXEC LINKGO , PAR M . LINK='MAP, LIST', PARM. GO= 'EARTH- MOON' 

If one passes information in this way to one’s own program, then one’s program 
must contain coding to retrieve this information. To do this, one must under- 
stand how the system makes this information available to programs. 

Upon entry to the program invoked by the EXEC statement, general register 1 
contains the address of a pointer to a field of data in core. The field is located 
on a halfword boundary, and its format is as follows: 

| length of field | the field .... 
byte 0 12 .... 

That is, the first two bytes contain a halfword integer whose value is the length 
of the PARM field in bytes (characters). This is immediately followed by the 
information coded in the PARM field itself. CSS, which was written in FORTRAN, 
calls a FORTRAN SUBROUTINE called PARM which accesses this information 
and returns it in the COMMON block PC. This SUBROUTINE is described in the 
appendix. 

The PARM field retrieved as above is interpreted by CSS as having three fields 
or less. The formats of these fields is described in the section INPUT. The 
three fields are: 

1. A logical value, true or false, indicating whether the first character 
of each record is to be ignored. 

2. A number, from 1 to 33, indicating the number of words of data to 
be scanned per record. 

3. A character string, indicating the group of characters for which to 
search. 
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If one or more fields are omitted, default values are assumed. The default for 
field one is true, for field two 30, and for field three 'DODS'. 

The values of these three fields, whether default or explicitly specified, are 
placed in the variables LCC, LUP and COMPR, respectively. The variable N 
is set equal to the number of characters in COMPR. LUP and N, or functions 
thereof, are used as upper limits in DO loops related to the scan. The logical 
switch LCC is used to decide which FORMAT statement should be used to read 
the record. In the READ statement, an iterated I/O list is used, with LUP as 
the upper limit, to read the desired number of words into the elements of TEXT. 
These elements are then printed. Then in a DO loop, MARK is initialized as all 
blanks , and TEXT is broken up into characters by moving the elements of LTEXT 
into every other element of ILTEXT. The odd elements have already been ini- 
tialized as blanks in a specification statement. Thus, upon exit from the loop, 
ITEXT will be an array of halfwords each of the form 

| blank [ character 1 
byte 0 1 

That is, the first byte is blank and the second, a character from the record. 

This can be compared with the elements of COMPR , which have similar form. 
This is done because, with some compilers, one cannot compare logical varia- 
bles for equality. 

Next, IND is set to FALSE, so that if its value is not changed during the scan by 
finding a match, it will be FALSE after the scan and so ASTER and LINE will 
not be printed. Finally, we have the scan itself, which consists of a DO loop 
with two inner loops. The outer loop is indexed by the number of the character 
in ITEXT which is the first of those we are comparing with COMPR. The first 
inner loop carries out the comparison, character by character, up to N itera- 
tions. If a mismatch is found, control is passed to the end of the outer loop. 

If not, the second inner loop is executed, which sets the appropriate elements 
of MARK to asterisks. Then END is set to TRUE, and we drop to the end of the 
outer loop. Upon exit from the outer loop, we check IND. If it is TRUE, we 
print ASTER and LINE and branch back to statement 50 where the test on LCC 
is made and another record is read in. Otherwise , we go directly to statement 
50. When the last record has been processed, we take the END exit of the READ 
statement and STOP. 


5. INPUT 

CSS accepts two inputs: the PARM field, and a sequential data set of records to 
be scanned. The latter is read on logical FORTRAN unit 8, so it is defined in 
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the GO step by a DD card with the ddname FT08F001. It need have no special 
format, except that no record may be shorter than LUP words. It is suggested 
that a fixed record format be used, to prevent some records, such as pagination 
records, from being too short. 

The format of the PARM field is: 

| logical switch j ignored | number of words | ignored | group of characters 
byte 1 2 3 4 5 6 

where logical switch is either T or F, for true or false respectively, indicating 
whether the first character is to be ignored; number of words is a two-digit dec- 
imal n um eral indicating the number of words of data to be scanned per record — 
if the number is less than 10, the first digit must be coded as 0; and group of 
characters is the character string for which to search. All fields must be en- 
tered in the positions shown. The ignored characters may be used optionally as 
punctuation or separation to make the field readable. I prefer commas. 

Fields may be omitted by shortening or omitting the PARM field. If number of 
words is coded, so must logical switch, and if group of characters is coded, 
these two must be also. If no PARM field is coded, all there quantities will as- 
sume their default values. If a PARM field is coded and one or two fields are 
omitted, the cutoff must be immediately before one of the ignored characters. 

To include the ignored character as the last character in the PARM field will 
produce unpredictable results. For an example, the following PARM field expli- 
citly defines the default values: 

// EXE C LINKGO , PAR M . GO= 'T , 3 0 , DODS ’ 


6. OUTPUT 

The only output of CSS is a listing of the input, or of the input records truncated 
by specification of number of words , together with flags when appropriate, as 
explained in the section PURPOSE. For example, suppose we are searching for 
the characters 'MOON' in a card data set (deck). Then the JCL would be: 

JOB CARD 
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// EXEC LINKGO, PARM. GO='F,20, MOON' 


//GO. FT08F001 DD * 


DC 

EPHEM 

EARTH-MOON DISTANCE 
SATELLITE VELOCITY 

POTENTIAL OF MOON AT PERIGEE, 500 KM FROM MOON 


/* 

and the output would be: 


DC 

EPHEM 

EARTH-MOON DISTANCE 
* * * * 


c 
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SATELLITE VELOCITY 

POTENTIAL OF MOON AT PERIGEE, 500 KM FROM MOON 

ik*** * * ♦ # 


7. SAMPLE RUN 


In the run shown at the end of this document, we wish to edit a MAPDISK bating 
of the disk pack DODSOl, flagging all occurrences of »DODS'. No PARM field 
is coded, since we want the default values. The first step invokes MAPDISK, 
which resides in the system library. The output is placed in the data set defined 
by the DD card with ddname SYSPRINT. This is ordinarily sent to a printer, 
but we want it to be processed by CSS in a later step, so we code a DD card de- 
fining a temporary sequential data set on disk. The remaining steps are Just a 
compile-link-go of CSS. In the GO step, we code the FT08F001 DD card to re- 
trieve the data set created in the MAP step. 


This run is typical of a larger class of uses of CSS, but many others are possi- 
ble, with correspondingly varied JCL deck setups. To learn how to set up the 
jCL for a particular application of CSS, the reader is referred to reference #1. 
The other references may provide the reader with a background for understand- 
ing how CSS works, depending upon his familiarity with IBM System/360 and its 

Operating System. 
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APPENDIX 


THE FORTRAN SUBROUTINE PARM. 


PURPOSE 

The SUBROUTINE PARM was written to retrieve the PARM field for CSS. There 
is no reason, however, why it could not perform this service for any other rou- 
tine. Some caution should be exercised by the would-be user, as there are sev- 
eral restrictions on its use. Here is a list of such restrictions: 

1. PARM must be called directly by the MAIN routine. 

2. The CALL statement must be the first executable statement in the rou- 
tine. 

3. The CALL statement must have no argument list, i. e. , it must be of 
the form 

CALL PARM 

The number of characters in the PARM field is returned in an INTEGER variable 
called NUM, and the characters of the PARM field themselves are returned in 
the one-byte elements of the LOGICAL array F, both in the COMMON block PC. 
Thus, in order to have access to this information, the user must code these spec- 
ification statements: 

LOGICAL* 1 F(100) 

COMMON/PC/NUM, F 

Of course, the names NUM and F are arbitrary and may be changed by the user. 

If there is no PARM field, NUM will have the value 0. In any case, the first 
NUM elements of-F will contain the characters of the PARM field, one per ele- 
ment, and the remaining elements of F will have unpredictable contents. 


LIST OF SYMBOLS USED IN PARM 

PC — COMMON block containing NUM and F 

NUM — variable in which length of PARM field is returned 
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F — singly-subscripted L0GICAL*1 variable in which PARM field is re- 

turned 

ARRAY — singly-subscripted L0GICAL*1 variable containing system PARM 
field, including length field 

INUM — INTEGER*2 variable into which length is moved 

LN — singly-subscripted LOGICAL*! variable EQUIVALENCED to INUM 


METHOD 

The SUBROUTINE statement has an argument list with the single argument 
ARRAY. Now the way argument lists are passed in FORTRAN under IBM Sys- 
tem/360 OS is as follows: the address of the argument list is placed in general 
register 1 by the calling routine. The argument list itself is located on a word 
boundary and consists of a sequence of one or more single-word address con- 
stants. In FORTRAN these would be the addresses of variables. Thus the SUB- 
ROUTINE PARM will expect, upon entry, to find in register 1 the address of a 
one-argument argument list pointing to an array. References in the SUBROU- 
TINE to elements of ARRAY will retrieve the data in the field pointed to by the 
address constant. Now, since the CALL statement was the first statement ex- 
ecuted in the program and since it had no argument list, register 1 will contain 
whatever it had on entry to the program, namely, the address of a pointer to the 
system PARM field, which includes a length field. All that needs to be done, is 
to move the information, in appropriate format, into the COMMON variables 
NUM and F. 

The first two bytes of the system PARM field are the length, in bytes, of the 
PARM field itself. We move these bytes, the first two elements of ARRAY, into 
the two elements of LN. This is EQUIVALENCED to the halfword integer vari- 
able INUM, which therefore now has as its value the length of the PARM field. 

We next set the fullword integer variable NUM equal to INUM, and half the job 
is done. If NUM is 0, it means there is no PARM field and we RETURN. Other- 
wise, we execute a DO loop indexed by NUM to move the elements of ARRAY from 
the third on into the elements of F. NUM and F now contain all the necessary 
information, so we RETURN. 


SOURCE LISTING 

A source listing of PARM, as well as of CSS, can be found in the SAMPLE RUN 
below. 
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0009 


-ow- 

j 0011 
0012 


EQUIVALENCE ( j It WP .LJTENPO ) ) 


T e-o o 


CALL PAR M 

L J TEMP ( 1 ) ==F (1 ) 
^(JTc M P.Nt£ . i Tfcfa ) i.CC = 


0013 

-0034- 


0015 

rtAli 

wwTu 

0017 

0010 


L TLMP (2) -r (3) 

i i. u n - r Tf- m it. a a n — 

i rc “r^ * t *tz pa r- c v 

L LP = 1 OI TEMP 
LLP=LLP*I TLMP-240 


0019 

0020 
002 1 
0022 
0023 


0024 

0025 

0026 
0027 

-00i20 

0029 


N=4 


T-tA- 


7C CCMPR ( K) =ud) S ( K) 

ir | rrvt*» ttn*> r'a v — ru — 1 

N =NUM-5 

J ^ L MP-o Dg 


-DU oC K = 1 » N 


SO CUMPR (K) = JTEMF 


"0030 
002 l 
-0030“ 
0033 


CVP4M3=LUP/>-NMl 
■5 0 tf (LCC)GQ To tel 


READ ( d # 1 C 0 . 2 N J =30) (TEXT( K) • K= 1 * Lb H 
GU TU 52 


0035 

003 6 - 


101 FG R M A TU X .33AA ) 


0037 
- 0030 — 

0039 

0040 
004 1 
00 4 2 


DO 10 K=1 .LLP4 

ua ak-i-K \ -a | _ 

rnA aa \ n t —ot — 

10 ILTE *T(2*K) =LTEXT (K) 

- IC-O - - 

Ind=. false • 

DC 20 K-l . LLP4 M 3 


004 3 


0043 
— 004^- 
0047 
00 4 0 


IF (1C) 11 .11 .19 

IF (1 TE XT( KfKK-1 ) • NL .CCMPW(KK).) bC TC 20 

- 90- CtiNTI NLfe- - 

IC =N 

du ge e y . x . =i , n 


0049 
—0059- 
005 1 
- 005 2 

0053 

00 5 4 


2 0 C MARK. ( K+KK-1 ) =AST1 

1 , ND ~ . 4 R Uc ♦ 

15 1C=IC-1 

2-C- CGNTI N-LE- - 

IF(lNi)) 4RI Td 15 .1 C2) ASTER .LI Nt 
-102- FORMA 14 1 X s-llAAJl X >33 AA / ) 





FORTRAN IV (i LEVEL It FARM UAT 


0001 SLbkCJLTINc PA R* (ARRAY). 

0002 f(lCO) >A RR AVaO ' 2htM^1 

0003 I N TtGfcR* 2 lMt* 

”O0tr4 gotrvA t t i NC t-ti * wyctrt i — 

000 £ COMMJN /PC/NbM *F 

0006 LN C l ) =AWRA T <1 I 

0 C 0 7 LN(2) =ARRAY(2> 

0 0 08 NLH^INL ' M ; 

0005 IF (NUM.cU* 0) RETURN 

OtJTO DO 1"0 K = 1 *N CM — 

0011 10 F(K)=AftRAY(Kf2) 

OO T? — RETURN- • - - 

END 


00 13 




SYMBOL 
“X 


LOCATION 
*** 


SCAtAtf- — 

SYMBOL LOCATION 


SY VbCL 


LLCAT 1 JN 


SY A djL 


LUCmTIQN 


SYMBOL 


LUC A T1 CN 




F ASS ED 


IEF2B5 I SY S 7 0274. T1 94 91 5. W VO 00. GFRLEC a S . CB JMUD 

IEF2E6I "VOL 5ER NOS - - G rSCR4V 

I EF265 I SYS7C274 *T 1.94 9>l 9 • SVCOO.GF ft Lc.C SS« R0000161 


SYS CUT 


I tF 285 I 


VOL SLR NOS= GISCRS. 


I EF 285 1 SY57C274 . T1 94 Si 9. SVOOO.^FkLECsJ:. F0000162 

TEF23SI VOL SER' NOS- 'CTTSCR5i '' * " 

IEF265 1 SYS7C274 .T1 9491 9. 5 VO 00 • viF RLECSS. FOOOOloB 

“TEF2E3T VJL SER NLJS= GISCFTT. 

I EF2S5 I SYS7C274 .T 1 9491 9.R VC 00. GF RLECSS. SOOOOloG 


sys cut 

D ELcT ED 
SYS IN 


t CP 203 1 


VOL — 5 g R - WQt- Gt 'S W f r* 


2EF265I SYS7C274.T1 9*51 9*ft VOOO.GFRLECSS. SOOOO 164 DELETED 

JOB NBft- 690 STEP NBR- 02 GFRLEC3S SCURCc. PGM= l =Y FORT CahLS=00072 INI 

r="0"00"i“l — r/tJ- OOG-. t — CORE- O'©©'* - ! — CrtAKt/tr = 00 0 .0~2 ST cP-02 SOURCE TERM 

I/O TIME BY DEVICE* DISK=«*****«i0 .DRUX=4*****.09 *T APt=»M*** i **00* CELL = «**** 


- 3T 6 . P ~ R L Q ION SI 2L « C2 C OK -M A * t M E M RCui CN S i HE UG t it>0 1 30* 


PER ' CENT 


T IA 
1NA 
* • 0 

EG iuN Oatu 


TION T I ME = 
T I UN T i Mc — 
C»OTHR=>Mf 
g e S 


21 *1 
21*1 
*** . 


0* 07. 63 
0 * 24» til ■ 
00 


OaTE=1 
OAT c*i 


0-01 -70 
0— 01 — 7 Q- 


//LC EXEC L INK GO 
X7CD6 FAU L T ‘ 

XXLINK EXEC PGM=IE*L *PAftM=(MAP .LIST) *CCND= <5 *LT) *REGICN=JOOk 

XXLITAOL-tB DO — D^N AMt^S YS^iLztJAtrt ttr*D t^= 3rt-R * - 

XXNEWL IN DD DUMMY 


XX 

TOC 

XX 

XX 

XX 


• DO DSNA M E = S Y S2.t ) E MM V .Ul £P-j Hit 

DD D3NAME=SYS2.DLMM Y *DI SF=SH« 

“DD D'SNA ME — ST ST .F OR^Tl « TDl SP=3nR 
Du G SNA ME = S Y 32 • G SF C L l 3 *0 I SF=3HR 
DU D SN A ME- S Y2 1.PL1 L l d SM « 

DD DSNAME=SYS1 . TELCMLl J *DI SP=SHR 


-COGOO-iOO 
CC COC 200 
000 t 3-0 56 t* 
O0CC040C 
00000 = 00 — 
ooooo too 
•eooe©?©© 

0CCCC300 
-00 OOD^O-O — 
C0001000 
OOOOt 100 — 
00001200 
OOOO-l BOO 
00001400 

COCCI 500 
0000160 C — 


-tr 


"OP P 3 NAMfc- 3 V 2g- iUi3At>t.i J >D 1 3 F = 3 tl R 


XX DD OSNAMt = SVSl .SSPAK ,J1 5F = SHR 

-XXSr^LMOIP 1XJ tm u -fc&L O&MtTUfGSFC "Fwl t yP AS6~>- * Utrl F=-D I S At 

XX SPACE = ( 3C72 • ( ENBL* *40*1)) ,DCB=EL KS I 2t.= 3072 

I £FeS 31 SUBSTf T UTlUN — JGL SPACE=< 3072 r( 63 -i 40 t OOE= 6 tKS- 12 fc =^30 72 

XXSYSPHINT DD SY SO L T =A *DC 6 = ( RECF M=Fd H » LR2C L= 1 2 1 • BLKS I 2 E= 1 2 1 0 ) • 


-**- 


O P AOt- « ( IRK * (3 * 3) ) 


XXSYSUT1 DD UN I 1 =D I SK * SPACE = ( 1 C24 * (100 *20) > *DC 6= EL KS 12 E= 1 0 24- 00001 700 

XXT APEL lb Dt) DUMMY* VUL =~S£ ="f"APE 1 R-rUNl-T^ 1^~T~RACK * rOEFE-R) * LaEEI^^-* cLH K OOOGT’SOO 

XX OISP=( OLD *KE2P) *DCl}= (RECF K=pB *LRECL=o0 » cLKS IZL=32G 0 ) 000019QC 

XX SY SL I N Ofy DS N >6 DUB JM OD tDiSP-< QCU +UtrLE Tt h *€ €6= A2CFM=Ftr ©0-002000 

XX DD DDNAME=Ob JECT 00002100 

r/L INK .3 Y 3ABEND DP 3 V SUET = A < S P ACE = (C YL t ( 1 »1) ) r 


1 EF 2 36 I ALLOC 
XE F 23 TI ~rr? — 
IEF237X 237 
-tfcF 237 I -227 
1 EF 2 37 2 ICO 
IE F2 37I 237 


, FOR GFRLECSS LINK 
ALL3CA 1EU — TU“ LttADtrt a~' 
ALLGCATED TO SYSLlB 
ALLOCATE:^ TO 
ALLOCATED To 
ALLOCATED TO 


LG 


I EF 2 37 I 23 7 


IEF237I 337 
*^F227 1- 337- 
IEF2371 12c 
l E F 2 37 I 33 £ 


ALLOCATED TO 

-Att-OCA TED - TO — 

ALLOCATED TO 

*fcOOG A TED TO - 

ALLUCA TED TO S YSLMGD 




TO SY SPR INT 


I EF 237 1 222 
-hEF 227 ^ 64 C- 
IEF237I 222 


ALLOCATED TO SYSLT1 

-ALLOGA-TEO TO EYSHW, 

ALLOCATcD TO S Y SA6CND 










to 


IEF2351 SYSZ.LDAOLld 
IEFZff5I VOC 'SER' MOSR'GI SYS2V 
teF2E5l SYS2.DUMHY 

IGF 2 as I TOC — Sg R NO ; - u 1 S I i 1 . 

1EF285I SYS2. DUMMY 

IEF255T VOC SCR NUi= G 1 SI SI . 


KEPT 

kept 

KEPT 


ICFZSsI SYSl.FJRTLId 

I EF 225 I VOC~SgR— TTOS~~ o IDR Mt ; — . 

I6F285I SYS2.GSFCLI3 

te r 2 (st roc — s cr — t ro a -— u 1 a y s i . 

I EF 2 0 51 SYSl.PLlLIb 

IEF2eSr _ VOL ' SCR MOSR ~Gt SYSC. 

I EF 2 35 1 SY51 .TELCMLI3 
TEF28S I ~ VOL SER NOS 5 GlSYSlr 
JEF2aSI SYS2.L0A0LI3 

tersest to c- scr - w j a - grsTsgv 

IEF26SI 3YS1.SSPAK 

TFFZeSI ~VOL SER NO S R"GTS V 32 . 

IEF2S5I 3Y 370274. TlS431S.«V0Q0.oFKLSCsS. LOOK CO 

"TEFCaSI "■ VOL SER NU S ~ G 1 SCR . - — 

I EF 2 85 I SYS 70274* T l ? 4 Yl V • S VOCO .GFRLeCSS* R00 OOloS 

SeF2e3I TOC — 3CR--M O S -— Ti ISCN j. 

IEF295I 3YS7C274. T1 3441 5 . W VO 00 .GF p lEC SS. R00001O6 


KEPT 


KEPT 

KEPT 

KEPT 

KEPT 

Kept 


P ASS ED 


SYSLUT 


CcLcT tO 


TEf^es-t -voir sek-nos-- gtscr-^.-- - 

IEF26 51 SYS70274 . T1 $4 SI S.RVOOO.GFfcLcCSS. 08 JRCJB 

-f-ep**s-i- — — - 

I EF 2 6 51 SY S 70274. Tl $4 il 9 • S VO 00 . GF * LECSS. HOG 00 l o7 

tCF 2e S 1 Ytttz — 3LK til SCK ^ i _ 


DELETED 
U ELiif c C 


-JU8 N8R- 


690 STEP NdH- 03 


jf*WLLC6S LINK PGV=IE»l CAK(j^» = 00000 INlTlA 

'""CPU^-COOvl” lYO-eeOrt CORE -OOO'. I -CNARGfc-=O0O-.O4 if-eP-O-j t Tc*«HNa 

1/0 IIMK dr OEVICE. 01 SK=*»*«*1. Oo ,0FU»=»**»»».6a .T JPE=«»*.*« . JJ, C cLl=-*«» 

*■ STC»*-KC S ION- SI2E = C300K MA XT KEt»T CN S i *E Lhrt:est>2cr4 K 

XXGO exec PGM=* .LINK. SYSLMOJ ,CCND= (5 .LTJ .REG1CN=1 loK 

XXPT03F001 DO OP N AMg cDa T ft g- J OJ Q-JQU 


XXFTC6F001 00 


~ OPN AMg -L ) A T A S 
3YSOLT =A .L>C6 = l REC.- 
sp-ACE-rcYtr,tt-,t rt - 


PctivtNT- UP RtrGKiN-iiSbD 
0 OCC 2 200 


TION TlME = 
HUN TIMcra 
C.0TH8-* 
■=64 


21.10 
21 .10 
*** , 00 


24. 7o OATfc^l 
35.44 OATb=l 


0-01 -70 

0 - 01-70 


= VdA ,LRfcCL=l 37 • b L KS 1 Z E— 7 2 3 b). 


XXFT07F0C1 OO' DUMMY ,UC8=(RECFR=F6 ,LRk£CL = J0 ,8 L KS I 2E=7 260 ) , 

~^X - • - 3 P ACc^HitK rU‘i 2 ^)-) - 

*** INSERT //GO .F TC7F001 00 u S9 = 6 LDE C K . i YS CUT= b FCP FUNChtC OUTPUT 

iLSt!C L= 1 20 » uLKG I £ >, ** 0 2 9 ) t 


XX SPACE = ( TRK . ( l .23) ) 

/^Gtr.-PTcePce t- t)u- i) 9 t=ct i-st .->1 sp^i-clo ,oeLt-Tc> 
//GO .SYSAbENO DO SYSuLT =A , SPACE = (C VL . U . t ) ) 

“//■ - - 


C C 002 400 
“00 00 - 2300 - 
0 0 00 2 tO 0 
00002700 
CO CC2 30 0 

CC002U0J 


1 EF 2 261 ALLOC. FOR uFRLfcCSS GJ LG 

— * CFS37I Z:i ALLOCA TED — TO PU H rr- . OO 

I EF 2 27 1 222 ALLOCATED TO FTOoFOOl 

TgF2^?I -2 re ALLOC AT Et> Tt3 S VSPR fN 1 - - 

IEF237I 24 1 ALLOCATED TO FTC8F001 
IEF237 I 22-2 ALLOCA T£t> TO SYSAUcNu 


CiGr '- GYCT..H3 GUTI’CRT UTILITY OAsO — A tcLuCAT iuN t4v . P U^uaTEu S/ I 2/fe, 

CONTENTS -ON -VOtL^= = SE-N=OCBSO-l - OMT*54«* 


DATA Sc T NAME 

V TOC - 

cXT — F IRST LAST-LcNG IN 

Ol OOOOl CC01C OOOIO 


— O AT £ 

CREATED 


iLe F iLfc V OL- . TOTAL TtUCKS 

type EXTENTS SEKlAL SEQ . SECURITY ALLUC USED 

10 * 


312 


FREE SPACE 


CXT- 

-FIR ST- 

— LAST- 

Li NO TH 

C1 

C0390 

C C436 

CC037 

02 

*1020 

€1094- 

00067 

C 3 

01174 

Cl 175 

CC001 

€4 

01 1 to 

C 1*3 i 4 

00006 

Co 

Cl £ 3c 

Cl«s€ = 

CCC5C 


-frc Og - I 20 C21 € 2 000 66 

C 7 Q242C C243S 0C020 


0 0 

02 4 70 

024 79 

00002 

09 

02216 

C2dl 7 

CG002 

to 

031 CO 

031 SC 

CC069 

1 1 

0395S 

C3957 

CCC04 

-t-e— 

— O 4L AQ — 

-6 3499 

— €4iGOI- 


A AO Bo o92uo 7>2ja FAnT 0 1 uU->601 Cl NO 30 29 

**•*« 


DSQRCsPO RECFMsL LncCL=0 

d fc.K -6 126 =- 7 2 v 4 2 <»A> — A L - LOG A T 1 0 N~5 — 

cXT — F Irt ST LA ST-UENG TH 

€t 00440 Oo«©9 00040 

AOSFL 6926 s OJuuO acu. 01 uJUSOl Cl nu 17 17 



DSORG=PS RcCFMsF LKECL=0 

BUKS 2fO AL LOCATE vft-0 •, 

cXT — FIRST LAsT-LHNGTH 

-C-t €24*0 Q2fc7e CC017 

ARC »MJRKl. 16 70170 OOGOy PA«T 01 jUCJ> 01 Cl Nu 2'J <* 


to 

to DSURG*HO KtCrM = F 3 LKtCL = iC 

BLKS I2* = S20G 2Nt> M-LUCATlwN=C 
tXT FIRST LAS1— LsNG TH 

04 G 1- 6 -4 0 C 1- 0 -94 C-C-02-G 

. ATCTE1 70072 O0000 jcu. 01 _»-»OSOl Cl No 1 1 


C5JRG = PS P.ECFM = V LPcuL=cl2 

cXT — FIRST LA 3 1-Lfc.No TH 

0 1 031 £9 021 fcS 0C-001 

AUTOBS 


70 2cu OOLOO 6 cO • 


J'-mO SOI 

*««* 


Cl NU 


D5QkG=PS k£CPM=F Lk‘ lL z J 

tJLK S I 2c » 35 20 2*»0 ALLUCA T l G N = '5 

. cXT FIRST LAST-LENGTH 

Cl 00 C 34 CC13S CClOo 

C 2 021 S3 (.2522 CC1 33 

G-4 ^ -7-A G C 47 SA G4-04-S 

C64ELS 70230 00000 -a tU . Oi uOuSOl Cl NU 221 221 

*«** 


GSURG=HS AtCFM=F LP£CL=0 




i A T- 

-FIR ST- 

— LA ST- 

Lt NG TH 

C 1 

C1 S6C 

02039 

CCG30 

C 2 

02677 

C27S5 

C CC73 

C 3 

037 £5 

C3fcl 6 

OOC-32 



GSFC 

SYSTEM 


aUFPLwT UTILITY - 


LAaL ALLOCATION HaP 


Pag c 



UNIT = 544 


CON 1fc.Nl S CN V0LLFc = SE.R=uUDS01 






C AT L 

C ATt 

F IL = 


.-ILL 

acR 1 AL 

VJL . 

^ ^ I T Y 

TClAL 

-ALt^L- — 

TRACKS 
ObeO 


C64MNV 

DA TA — SE T N A Mu 



702c o 

COO 00 

3 CU • 

C 1 

DUD SOI 

** ** 

Cl NO 

1 o 

16 



05JRG-PS 
dL< S UL = 2 
EXT- 
C 1 

OCPSCD 

Ktlr M =F LWtLI_ = J 

5 20 2ND ALLOCATIONS 
-FIR ST- — -LA'S T-LENG TH 
02SS3 C2S6J CCClo 



70233 

OoCoO 

3 CU. 

0 1 

JUubO 1 

C 1 NU 

1 1 

o 



D SURGES RECf'^-Vi LRcCL=dC4 

6LKS izt = eca 2ND ALLUCA T IQN=0 

• • tXT>*“r IR ST— - — t-A S'T — LcNG fH 

Cl C0C23 C C 033 OCOil 


PQC3 .A 1L 1 i 3l 

**** 


4-- 


OSU«G=P’D *ECFM=L t_Rt:Ct_»30?2 
rU-KS I2c=7254 2NJ mLLOCA TICN-l 


EXT*- 

■» IK 3T* 

— LA 3T-LLNJ TH 

C 1 

0117c 

C 1 1 7c CC0C3 

02 

01 1 3d 

Cl 1 36 0 0001 


to DQD3 .OML 13 6925o 7*233 01 JjDbCl 01 NJ 

CO *m **** 


DSUftG=PU W=.CPM=t L«iiCL=i072 
8L.KS 12E = JC72 2ND alluCA TlOft=l 

CAT PlRST LAS1 -Ll No TH 

Cl 00011 €0012 00002 

0003 "DUMMY 692 OOoJO HART 0 1 JooSOl Cl NO 1 1 


DS0RG=PU RcLFM-L LRtCL=Q 

Bt_KS I2t= 1C 2* 2ND ALlUC A T I C N- C 

EAT — F IK ST LA S T-LcNG TH 

e-i 01 1 3 1 C 1 1 3 -5- — 0C001 — 


DOCS .DUMPS 

**** 


J J 0 3 0 1 


D SO R G = AcLFKt=L LR£Cl=0 

EAT — FIRST LAST-LtiNL TH 

OOOS.GUMOD 

**** 


7017S 7400** PART .02 0U»>60 1 01 NU 260 246 

*<*•** 


OtAJ k G *F U RE C F f 4 - » L L R fcCL — 0 

dLKS Wu=72*54 2ND AlLOCA T I uN=2C 


EXT— 

FIR ST— 

t_A ST-L<-Nv» TH 

C 1 

001 3C 

CC37S CC200 

0 2 

031 (JO 

0323*5 00G6G 


DODS.MOOLI3 7017a 00000 PART 02 GiSCKl 



DS(JRG=PU RfcCFM=0 LR£CL=aC 

1 2Nt»- *trttK:A-TH2N*20 — 

cXT — F IK ST LAST-ttNG IH 

~*i 0 07 4 0 WH GC330 

02 03640 C3659 C0020 


**** 


6^2o& 7^2-<jo- P ART - - 02 


ODD^Ol -Cl 

* * * * 


12* - 35 - 


&G&nGmfHl <> pppp i ,igr i -an 

BLK S IZE = 

<J0 2ND ALLOLATIGf« = 20 










Cl 

02323 C2*1S CCCS7 









~ 

DODS .UTSL IN . 

»»*+ 

70046 

723o0 

PART 

0 1 

OUDSO I 

01 

HU 

2 

2 












1 * 

OS(JRG=PO 



HECFM=FB LRcCL=ao 












<aSFC SYSTEMS SLFPC 

RT UTILITY - 

C AS C ALLOLATIuN 

.4 AP 





PAGE 


CONTENTS ON VCLLN£-ScW 

= wCC7S0 1 UMTsS44 















— 





—BA TA SS T NA Mfe 

OAT E 

CCSAT&L 

CATc 

F JLt 


F lu£ 

VUL • 


TUTAL 

TRACKS 

DOOS .UT3L IN 

































c A r — FIRST LA S T-i_£ Mi TH 

C-i 004 36 C €*39 QOJQ2 









' * 

OOOS.V4.CQT 


6S2Su 

00000 

s EO • 

0 1 

JUDSC 1 

Cl 

NO 

I 

1 







4A«< 


- 




DSOft G =P S K ECFM = V LHtCL = 7 »o 

dLTL6T.'e - SCO ALLULATICA-l 











tXT- 

i 01 

DOOS .Y4,GQMUO 

- **** 

-F IR ST LA ST-LENu TH 

- 04-045- -01*6^- * COOl — - 

70 030 

74004 

P A«T 

02 

JuOSOl 

01 . 

HU 

260 

246 

OSORG=PU RECFM = L LR£CL=0 

- — - ^*LASIZe-7294 2ND ALL-OCATION^ZO- - . 

cXT FIRST LAST-LENGTH 

- — -©+ - 6*£GG- G473C 0024* - 

02 01540 CliSS C0020 

— DOOS .V4 ■MESS 

6o2i>o 

0000 3 








**** 

.. — 





**** 






0SORG=P * *£££*-»£- - £ReC-L = Q 

BLKSIZ£ = 72 2ND ALLUCA7iCN=0 
e *T— F l ft - S T— LA S T — LE N O TH 


C 1 

OGDS .V 4 .T T F - 

4**4 


01C66 C1134 0 C 049 


JU^SCl 

**«t * 



DSORG=*-S RECFM=V LkECL-796 

3L<SIic = eOO 2ND ALL DC A T I J N — I 
cXT— FIR ST- — LA ST-LSNG TH 
Cl C002C C C 02 2 00003 

DODS .V5 .CUT 

**** 


70 0*7 OJOOO 


C l 


Duo SO l 


e i nu 


i 


i 


030RG-PS 9ECFM = VS LRECL=79c 
dLK5I2e=3C0 2ND ALLOCATIONS 
EXT— FIR ST- --LAST-LENGTH 
Cl 03621: <2626 OCOJl 


OSORG=FS KtCKM=F LRcCL=0 

t»L<SUii = 7; 2NJ ALLUCATlUKsl 
— T— Pl ' W 3T»— LA S T - t-U No Tr » - 

C1 02903 0295 2 CCCjO 

DOOS .VS .TTF 

***« 


Sv2oo 00000 ScO. 


JJWSO l 


C l Nu 3 3 


LSORG = P 5 RECFWry; LTTCCL - 7 R f 

3LKS12l=S00 2ND ALL0CAT1CN=1 

EXT— FIRST LA ST-LLNG Trl 

Cl 0297, C2,79 CCCC1 

- C 2 C3995 C 3995 0CC02 

DDLS .V6. CUT 



CSORG=Ra WECFM = S £ LRLCL=79c 

• faLK S iZr s tiOO 2ND ALLOC A T 1 G N 3 1 

lX T — FIR ST- — lA S I-LciNG TH 

e-l 01 1 rS (ins 0C301 

DODS .V 6 .MESS 

- *+** 


JJuSO 1 

«*** 


030MG=PS 

c;X T — • 
01 


LRL CL S v 


F IR ST LAST-L- NG TH 

02 ? Sc C 2 k 05 00030 


DODS .VC .TTr 

**** 


7 01 70 0000 J 0 2 u-JLSOl Cl 


*0 A 3 , 


DSORg=PS *ECr'M=\S LRe.CL = 7 9S 

<.,SFC SYSTEMS 3LFRG«T UTILITY - CASE XLi.Jt«T iuN MAR 

CONTENTS lN VOt_ L WE = S-= A=u CD SO 1 UMT=S~a 



DATA SET NAME 

DODS .V6 .TTF 

**** 


8LK S 1 2fc - 6 C 0 2ND ALLOCATIONS 

EXT — FIR ST LA ST-U£NG TH 

01 0166c ClSc? 00002 

C 2 03997 C 2996 0 0 0 32 

DODSET 


vATc l«Tc F ILc 

CficATdu mUKCE T YPc. 


r iLn VOL « TLTAL TRACKS 
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